inherited fm_Cad_Produto_Caixa: Tfm_Cad_Produto_Caixa
  Caption = 'V'#237'nculo de Produto a Caixa(s)'
  ClientHeight = 535
  ClientWidth = 800
  PopupMenu = pm_Principal
  OnActivate = FormActivate
  OnShow = FormShow
  ExplicitWidth = 816
  ExplicitHeight = 573
  PixelsPerInch = 96
  TextHeight = 13
  object pc_principal: TPageControl
    Left = 0
    Top = 18
    Width = 800
    Height = 517
    ActivePage = ts_por_Caixa
    Align = alClient
    TabOrder = 1
    TabPosition = tpBottom
    OnChange = pc_principalChange
    object ts_por_Caixa: TTabSheet
      Caption = 'Cadastro'
      object Splitter1: TSplitter
        Left = 0
        Top = 342
        Width = 792
        Height = 9
        Cursor = crVSplit
        Align = alBottom
        Beveled = True
        ResizeStyle = rsUpdate
        ExplicitTop = 240
        ExplicitWidth = 695
      end
      object pn_Caixas_Produtos: TPanel
        Left = 0
        Top = 351
        Width = 792
        Height = 140
        Align = alBottom
        TabOrder = 1
        object panel10: TPanel
          Left = 1
          Top = 1
          Width = 790
          Height = 138
          Align = alClient
          TabOrder = 0
          object gb_Produto_Caixa: TGroupBox
            Left = 1
            Top = 1
            Width = 788
            Height = 136
            Align = alClient
            Caption = 'Produtos da caixa'
            TabOrder = 0
            object dbGrid_Produto_Caixa: TFocusDbGrid
              Left = 2
              Top = 15
              Width = 784
              Height = 119
              TabStop = False
              Align = alClient
              Color = clWindow
              Columns = <
                item
                  Expanded = False
                  FieldName = 'nr_sequencia'
                  ReadOnly = True
                  Title.Caption = 'Seq.'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'nr_seq_produto'
                  ReadOnly = True
                  Title.Caption = 'C'#243'd.Produto'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'nr_seq_caixa'
                  ReadOnly = True
                  Title.Caption = 'C'#243'd.Caixa'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'prProduto'
                  ReadOnly = True
                  Title.Caption = 'Produto'
                  Visible = True
                end>
              DrawingStyle = gdsGradient
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'Tahoma'
              TitleFont.Style = []
              ColorParStart = 14806271
              ColorParEnd = 12703487
              ColorImparStart = clWhite
              ColorImparEnd = 14803425
              SQL.Strings = (
                'select '#9'a.*,'
                #9'b.prProduto'
                'from '#9'produto_caixa a'
                'inner join produto b on b.prC'#243'digoProduto = a.nr_seq_produto'
                'where '#9'1=1'
                'and '#9'a.nr_seq_caixa = :nr_sequencia')
              Params = <
                item
                  DataType = ftInteger
                  Name = 'nr_sequencia'
                  ParamType = ptUnknown
                end>
              TipoClasseBase = TProduto_Caixa
              TipoClasseDestino = Null
              OnAfterDML = dbGrid_Produto_CaixaAfterDML
              AllowAppend = False
              FilterOFFOnColSearch = False
              Columns = <
                item
                  Expanded = False
                  FieldName = 'nr_sequencia'
                  ReadOnly = True
                  Title.Caption = 'Seq.'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'nr_seq_produto'
                  ReadOnly = True
                  Title.Caption = 'C'#243'd.Produto'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'nr_seq_caixa'
                  ReadOnly = True
                  Title.Caption = 'C'#243'd.Caixa'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'prProduto'
                  ReadOnly = True
                  Title.Caption = 'Produto'
                  Visible = True
                end>
            end
          end
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 792
        Height = 342
        Align = alClient
        TabOrder = 0
        object Splitter3: TSplitter
          Left = 417
          Top = 1
          Width = 9
          Height = 340
          Beveled = True
          ResizeStyle = rsUpdate
          ExplicitLeft = 345
          ExplicitHeight = 327
        end
        object pn_Caixas: TPanel
          Left = 1
          Top = 1
          Width = 416
          Height = 340
          Align = alLeft
          TabOrder = 0
          object Splitter2: TSplitter
            Left = 1
            Top = 182
            Width = 414
            Height = 9
            Cursor = crVSplit
            Align = alBottom
            Beveled = True
            ResizeStyle = rsUpdate
            ExplicitTop = 153
            ExplicitWidth = 103
          end
          object gb_caixa: TGroupBox
            Left = 1
            Top = 1
            Width = 414
            Height = 181
            Align = alClient
            Caption = 'Caixa (Selecione uma caixa...)'
            TabOrder = 0
            object dbGrid_Caixa: TFocusDbGrid
              Left = 2
              Top = 15
              Width = 410
              Height = 164
              TabStop = False
              Align = alClient
              Color = clWindow
              Columns = <
                item
                  Expanded = False
                  FieldName = 'nr_sequencia'
                  Title.Caption = 'C'#243'd.'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ds_caixa'
                  Title.Caption = 'Caixa'
                  Visible = True
                end>
              DrawingStyle = gdsGradient
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
              ReadOnly = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'Tahoma'
              TitleFont.Style = []
              ColorParStart = 14155755
              ColorParEnd = 11468759
              ColorImparStart = clWhite
              ColorImparEnd = 14803425
              SubDetail = dbGrid_Produto_Caixa
              SubDetail2 = dbGrid_Produto_Interno
              Params = <>
              TipoClasseBase = TCaixa
              TipoClasseDestino = Null
              OnAfterScroll = dbGrid_CaixaAfterScroll
              Sort = 'ds_caixa'
              AllowAppend = False
              FilterOFFOnColSearch = False
              Columns = <
                item
                  Expanded = False
                  FieldName = 'nr_sequencia'
                  Title.Caption = 'C'#243'd.'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ds_caixa'
                  Title.Caption = 'Caixa'
                  Visible = True
                end>
            end
          end
          object pn_imagem_caixa: TPanel
            Left = 1
            Top = 191
            Width = 414
            Height = 148
            Align = alBottom
            TabOrder = 1
            object GroupBox1: TGroupBox
              Left = 1
              Top = 1
              Width = 412
              Height = 146
              Align = alClient
              Enabled = False
              TabOrder = 0
              object im_Caixa: TImage
                Left = 2
                Top = 15
                Width = 408
                Height = 129
                Align = alClient
                AutoSize = True
                Center = True
                Proportional = True
                ExplicitLeft = 32
                ExplicitTop = 64
                ExplicitWidth = 217
                ExplicitHeight = 153
              end
            end
          end
        end
        object Panel7: TPanel
          Left = 426
          Top = 1
          Width = 365
          Height = 340
          Align = alClient
          TabOrder = 1
          object GroupBox2: TGroupBox
            Left = 1
            Top = 1
            Width = 363
            Height = 338
            Align = alClient
            Caption = 'Produtos dispon'#237'veis p/ esta caixa'
            TabOrder = 0
            object dbGrid_Produto_Interno: TFocusDbGrid
              Left = 2
              Top = 15
              Width = 359
              Height = 321
              TabStop = False
              Align = alClient
              Color = clWindow
              Columns = <
                item
                  Expanded = False
                  FieldName = 'prC'#243'digoProduto'
                  Title.Caption = 'C'#243'd.'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'prProduto'
                  Title.Caption = 'Produto'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'qt_caixa'
                  Title.Caption = 'Qt.Caixa'
                  Visible = True
                end>
              DrawingStyle = gdsGradient
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
              ReadOnly = True
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'Tahoma'
              TitleFont.Style = []
              OnDrawColumnCell = dbGrid_Produto_InternoDrawColumnCell
              ColorParStart = 14806271
              ColorParEnd = 12703487
              ColorImparStart = clWhite
              ColorImparEnd = 14803425
              SQL.Strings = (
                'select '#9'a.*'
                'from'#9'('
                'select '#9'a.*,'
                #9'(SELECT '#9'Count(w.nr_seq_produto)'
                #9' FROM '#9'produto_caixa w '
                #9'WHERE w.nr_seq_produto = a.prC'#243'digoProduto) As qt_caixa'
                'from'#9'produto a'
                'where'#9'1=1'
                'and'#9'not exists( select '#9'1'
                #9#9'  from'#9'produto_caixa b'
                #9#9'  where'#9'b.nr_seq_caixa = :nr_sequencia'
                #9#9'  and'#9'b.nr_seq_produto = a.prC'#243'digoProduto)'
                ')a'
                'where 1=1')
              Params = <
                item
                  DataType = ftInteger
                  Name = 'nr_sequencia'
                  ParamType = ptInput
                end>
              TipoClasseBase = TProdutoInterno
              TipoClasseDestino = Null
              Sort = 'prProduto'
              AllowAppend = False
              FilterOFFOnColSearch = False
              Columns = <
                item
                  Expanded = False
                  FieldName = 'prC'#243'digoProduto'
                  Title.Caption = 'C'#243'd.'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'prProduto'
                  Title.Caption = 'Produto'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'qt_caixa'
                  Title.Caption = 'Qt.Caixa'
                  Visible = True
                end>
            end
          end
        end
      end
    end
    object ts_por_Produto: TTabSheet
      Caption = 'Consulta por Produto'
      ImageIndex = 1
      object Splitter4: TSplitter
        Left = 170
        Top = 0
        Width = 9
        Height = 491
        Align = alRight
        Beveled = True
        ResizeStyle = rsUpdate
        ExplicitLeft = 520
        ExplicitTop = 8
        ExplicitHeight = 478
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 170
        Height = 491
        Align = alClient
        TabOrder = 0
        object GroupBox4: TGroupBox
          Left = 1
          Top = 1
          Width = 168
          Height = 489
          Align = alClient
          Caption = 'Produto (Selecione um produto...)'
          TabOrder = 0
          object dbGrid_Consulta_Produto: TFocusDbGrid
            Left = 2
            Top = 15
            Width = 164
            Height = 472
            Align = alClient
            Color = clWindow
            Columns = <
              item
                Expanded = False
                FieldName = 'prC'#243'digoProduto'
                ReadOnly = True
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'prProduto'
                ReadOnly = True
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Volume'
                ReadOnly = True
                Title.Caption = 'Volumes'
                Visible = True
              end>
            DrawingStyle = gdsGradient
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            ColorParStart = 14806271
            ColorParEnd = 12703487
            ColorImparStart = clWhite
            ColorImparEnd = 14803425
            SQL.Strings = (
              'select '#9'a.prC'#243'digoProduto,'
              #9'a.prProduto,'
              #9'(select count(b.nr_seq_produto)'
              #9' from '#9'Produto_caixa b'
              #9' where  b.nr_seq_produto = a.prC'#243'digoProduto'
              #9' ) as volume'
              'from'#9'produto a'
              'where'#9'1=1'
              'and'#9'exists('#9'select '#9'1'
              #9#9'from'#9'produto_caixa c'
              #9#9'where'#9'c.nr_seq_produto = a.prC'#243'digoProduto)')
            SubDetail = dbGrid_Consulta_Caixa
            Params = <>
            TipoClasseBase = TProduto_Caixa
            TipoClasseDestino = Null
            OnAfterScroll = dbGrid_Consulta_ProdutoAfterScroll
            AllowAppend = False
            FilterOFFOnColSearch = False
            Columns = <
              item
                Expanded = False
                FieldName = 'prC'#243'digoProduto'
                ReadOnly = True
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'prProduto'
                ReadOnly = True
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Volume'
                ReadOnly = True
                Title.Caption = 'Volumes'
                Visible = True
              end>
          end
        end
      end
      object pn_Caixa_Volume: TPanel
        Left = 179
        Top = 0
        Width = 613
        Height = 491
        Align = alRight
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 1
        object gb_Caixa_do_Produto: TGroupBox
          Left = 1
          Top = 1
          Width = 611
          Height = 489
          Align = alClient
          Caption = 'Caixas deste produto (Volumes)'
          DoubleBuffered = True
          ParentDoubleBuffered = False
          TabOrder = 0
          object dbGrid_Consulta_Caixa: TFocusDbGrid
            Left = 2
            Top = 15
            Width = 607
            Height = 472
            Align = alClient
            Color = clWindow
            Columns = <
              item
                Expanded = False
                FieldName = 'nr_sequencia'
                ReadOnly = True
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ds_caixa'
                ReadOnly = True
                Visible = True
              end>
            DrawingStyle = gdsGradient
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            ColorParStart = 14155755
            ColorParEnd = 11468759
            ColorImparStart = clWhite
            ColorImparEnd = 14803425
            SQL.Strings = (
              'select '#9'a.nr_sequencia,'
              #9'c.ds_caixa'
              'from'#9'((produto_caixa a'
              'inner'#9'join Caixa '#9' c on a.nr_seq_caixa '#9'= c.nr_sequencia)'
              'inner '#9'join produto b on a.nr_seq_produto '#9'= b.prC'#243'digoProduto)'
              'where '#9'1=1'
              'and'#9'a.nr_seq_produto = :prC'#243'digoProduto')
            Params = <
              item
                DataType = ftString
                Name = 'prC'#243'digoProduto'
                ParamType = ptUnknown
              end>
            TipoClasseBase = TProduto_Caixa
            TipoClasseDestino = Null
            OnAfterDML = dbGrid_Consulta_CaixaAfterDML
            AllowAppend = False
            FilterOFFOnColSearch = False
            Columns = <
              item
                Expanded = False
                FieldName = 'nr_sequencia'
                ReadOnly = True
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ds_caixa'
                ReadOnly = True
                Visible = True
              end>
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 18
    Align = alTop
    TabOrder = 0
    object cb_Considerar_pedido: TCheckBox
      Left = 8
      Top = 0
      Width = 169
      Height = 17
      Caption = 'Filtrar pelos produtos do pedido'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = cb_Considerar_pedidoClick
    end
  end
  object pm_Principal: TPopupMenu
    OnPopup = pm_PrincipalPopup
    Left = 520
    Top = 232
    object mi_Add_prod_caixa: TMenuItem
      Caption = 'Adicionar produto(s) na caixa selecionada'
      OnClick = mi_Add_prod_caixaClick
    end
  end
end
